unit connect;
(*
  srcstr
    connect.pas - Connection dialog
    (c)2006-2012 Matthew Hipkin <http://www.matthewhipkin.co.uk>
*)
{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls,
  StdCtrls;

type

  { TfrmConnect }

  TfrmConnect = class(TForm)
    btnOK: TButton;
    btnCancel: TButton;
    textUsername: TLabeledEdit;
    textPassword: TLabeledEdit;
    textServer: TLabeledEdit;
    procedure btnCancelClick(Sender: TObject);
    procedure btnOKClick(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  frmConnect: TfrmConnect;

implementation

{$R *.lfm}

{ TfrmConnect }

procedure TfrmConnect.btnOKClick(Sender: TObject);
begin
  ModalResult := mrOK;
end;

procedure TfrmConnect.btnCancelClick(Sender: TObject);
begin
  ModalResult := mrCancel;
end;

end.

